home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 6 / 006.d81 / delta date (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  656 b   |  27 lines
  1. 5 gosub5000
  2. 10 rem date difference
  3. 20 input"[147][197]arly date(m,d,y)  ";m,d,y
  4. 30 gosub 1000:ke=k
  5. 40 input"[204]ate  date(m,d,y)  ";m,d,y
  6. 50 gosub 1000:df=k-ke
  7. 60 print"[196]ifference = ";df
  8. 70 input"[193]nother (y/n)";y$
  9. 80 if y$="y" then 20
  10. 90 goto63000
  11. 1000 if m>2 then m2=m+1:y2=y
  12. 1010 if m<=2 then m2=m+13:y2=y-1
  13. 1020 k=int(365.25*y2)+int(30.6001*m2)+d
  14. 1030 return
  15. 5000 poke53281,1:poke53280,5
  16. 5005 print"[147]          [196][160][197][160][204][160][212][160][193][160][160][196][160][193][160][212][160][197]"
  17. 5010 print:print:printspc(18)"by"
  18. 5015 print:print:print"            [210]ussell [202]ensen"
  19. 5020 poke783,peek(783)and254:poke781,24:poke782,13
  20. 5021 sys65520:print"<press a key>"
  21. 5025 poke198,0:wait198,1:geta$
  22. 5030 poke646,0:return
  23. 6999 end
  24. 63000 rem     link back
  25. 63010 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  26. 63020 poke198,0:poke631,13:poke632,13:poke198,2:end
  27.